CD Fun House 1/CD Fun House (Wayzata Technology).iso/•Games Parlour•/•Classic Board Games•/Mastermind ••••/Mastermind ееее/background_2633.txt

Text File | 1990-10-02 | 22KB | 876 lines

-- background: 2633 from stack: in
-- bmap block id: 3585
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=410 top=143 right=255 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Solution


-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=399 top=311 right=331 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve slowly to black
  visual effect iris open slow to white
  visual effect dissolve
  go to home
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=58 top=131 right=263 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn1


-- part 8 (field)
-- low flags: 01
-- high flags: 6002
-- rect: left=91 top=131 right=263 bottom=118
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn2


-- part 9 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=124 top=131 right=263 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn3


-- part 10 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=157 top=131 right=263 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn4


-- part 11 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=190 top=131 right=263 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn5


-- part 12 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=224 top=131 right=263 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn6


-- part 13 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=258 top=131 right=263 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn7


-- part 14 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=292 top=131 right=263 bottom=319
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn8


-- part 15 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=326 top=131 right=263 bottom=353
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn9


-- part 16 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=359 top=131 right=263 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turn10


-- part 17 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=15 top=38 right=57 bottom=96
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Puzzle
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  set lockscreen to true
  hide bkgnd field solution
  Put "" into bkgnd field solution
  Put bkgnd field colorcount into thecolors
  repeat with x=1 to 4
    put the random of thecolors into itsrandom
    if itsrandom is 1 then
      Put "R" into Peg
    else if itsrandom is 2 then
      Put "B" into Peg
    else if itsrandom is 3 then
      Put "G" into Peg
    else if itsrandom is 4 then
      Put "Y" into Peg
    else if itsrandom is 5 then
      Put "P" into Peg
    else if itsrandom is 6 then
      Put "O" into Peg
    else if itsrandom is 7 then
      Put "F" into Peg
    else if itsrandom is 8 then
      Put "I" into Peg
    End if
    Put peg into line x of sequence
  end repeat
  Put sequence into bkgnd field solution
  repeat with x=1 to 10
    put "turn"&x into holder
    put "status"&x into tholder
    Put "" into bkgnd field holder
    Put "" into bkgnd field tholder
    set showlines of bkgnd field holder to false
    set textstyle of bkgnd field holder to plain
  end repeat
  Put "1" into bkgnd field "turn field"
  set showlines of bkgnd field Turn1 to true
  Put R into line 1 of bkgnd field turn1
  Put R into line 3 of bkgnd field turn1
  Put R into line 5 of bkgnd field turn1
  Put R into line 7 of bkgnd field turn1


end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=15 top=95 right=117 bottom=103
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Evaluate
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  Put bkgnd field "turn field" into whichturn
  Put "Turn"&whichturn into holder
  if visible of bkgnd field solution is true then exit mouseup
  Put bkgnd field  holder into theguess
  Put bkgnd field Solution into thecombo
  Put "" into yourstatus

  if line 1 of thecombo is line 1 of theguess then
    Put "®" into line 1 of theguess
    put "black"&return after yourstatus
    Put "‚àë" into line 1 of thecombo
  end if

  if line 2 of thecombo is line 3 of theguess then
    Put "®" into line 3 of theguess
    put "black"&return after yourstatus
    Put "‚àë" into line 2 of thecombo
  end if

  if line 3 of thecombo is line 5 of theguess then
    Put "®" into line 5 of theguess
    put "black"&return after yourstatus
    Put "‚àë" into line 3 of thecombo
  end if

  if line 4 of thecombo is line 7 of theguess then
    Put "®" into line 7 of theguess
    put "black"&return after yourstatus
    Put "‚àë" into line 4 of thecombo
  end if


  if thecombo contains line 1 of theguess then
    Put offset(line 1 of theguess,thecombo) into position
    put "white"&return after yourstatus
    Put "‚àë" into char position of thecombo
  end if
  if thecombo contains line 3 of theguess then
    Put offset(line 3 of theguess,thecombo) into position
    put "white"&return after yourstatus
    Put "‚àë" into char position of thecombo
  end if
  if thecombo contains line 5 of theguess then
    Put offset(line 5 of theguess,thecombo) into position
    put "white"&return after yourstatus
    Put "‚àë" into char position of thecombo
  end if
  if thecombo contains line 7 of theguess then
    Put offset(line 7 of theguess,thecombo) into position
    put "white"&return after yourstatus
    Put "‚àë" into char position of thecombo
  end if
  Put "status"&whichturn into holder
  Put yourstatus into bkgnd field holder


  if yourstatus is "black"&return&"black"&return&"black"&return&"black"&return
  then
  Put "Turn"&whichturn into holder
  set showlines of bkgnd field  holder to false
  set textstyle of bkgnd field  holder to bold
  show bkgnd field solution
  play "applause"
  Put "Congratulations, you did it in "&whichturn&&"turns!!" into hold
  answer hold with "Thanks" or "Was Nothing"
  exit to hypercard
end if




Put "Turn"&whichturn into holder
set showlines of bkgnd field  holder to false
Put bkgnd field holder into sideline

if whichturn<10 then
  Put whichturn+1 into bkgnd field "turn field"
  Put "Turn"&whichturn+1 into holder
  set showlines of bkgnd field  holder to true
  Put sideline into bkgnd field holder
else
  show bkgnd field solution
  Put 0 into bkgnd field "turn field"
  Play "boing"
  answer "Sorry, you couldn't do it!" with "I Know" or "Quiet!"
  exit to hypercard
end if


end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=22 top=134 right=158 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: advance
----- HyperTalk script -----
on mouseUp


  Put bkgnd field colorcount into thecolors
  Put bkgnd field "turn field" into whichturn
  Put "Turn"&whichturn into holder

  if visible of bkgnd field solution is true then exit mouseup
  If line 1 of bkgnd field holder is "R" then
    Put B into line 1 of bkgnd field holder
  else if line 1 of bkgnd field holder is "B" then
    Put G into line 1 of bkgnd field holder
  else if line 1 of bkgnd field holder is "G" then
    If thecolors>3 then
      Put Y into line 1 of bkgnd field holder
    else
      Put R into line 1 of bkgnd field holder
    end if

  else if line 1 of bkgnd field holder is "Y" then
    If thecolors>4 then
      Put P into line 1 of bkgnd field holder
    else
      Put R into line 1 of bkgnd field holder
    end if
  else if line 1 of bkgnd field holder is "P" then
    If thecolors>5 then
      Put O into line 1 of bkgnd field holder
    else
      Put R into line 1 of bkgnd field holder
    end if
  else if line 1 of bkgnd field holder is "O" then
    If thecolors>6 then
      Put F into line 1 of bkgnd field holder
    else
      Put R into line 1 of bkgnd field holder
    end if
  else if line 1 of bkgnd field holder is "F" then
    If thecolors>7 then
      Put I into line 1 of bkgnd field holder
    else
      Put R into line 1 of bkgnd field holder
    end if
  else if line 1 of bkgnd field holder is "I" then
    Put R into line 1 of bkgnd field holder
  else
    put R into line 1 of bkgnd field holder
  end if

end mouseUp



-- part 25 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=263 top=68 right=93 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 20
-- style flags: 256
-- line height: 26
-- part name: Turn Field


-- part 26 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=57 top=277 right=328 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status1


-- part 27 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=90 top=277 right=328 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status2


-- part 28 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=123 top=277 right=328 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status3


-- part 29 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=156 top=277 right=328 bottom=185
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status4


-- part 30 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=189 top=277 right=328 bottom=218
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status5


-- part 31 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=223 top=277 right=328 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status6


-- part 32 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=257 top=277 right=328 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status7


-- part 33 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=291 top=277 right=328 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status8


-- part 34 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=325 top=277 right=328 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status9


-- part 35 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=358 top=277 right=328 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status10


-- part 38 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=457 top=32 right=51 bottom=490
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Colorcount


-- part 39 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=489 top=23 right=41 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  put bkgnd field Colorcount into colornum
  if visible of bkgnd field solution is false then exit mouseup
  if colornum is 3 then
    put 4 into newcolornum
  else if colornum is 4 then
    put 5 into newcolornum
  else if colornum is 5 then
    put 6 into newcolornum
  else if colornum is 6 then
    put 7 into newcolornum
  else if colornum is 7 then
    put 8 into newcolornum
  else if colornum is 8 then
    put 3 into newcolornum
  else
    Put 3 into newcolornum
  end if
  Put newcolornum into bkgnd field colorcount
  put newcolornum*newcolornum*newcolornum*newcolornum into bkgnd field Permcount

end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=489 top=40 right=58 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  if visible of bkgnd field solution is false then exit mouseup
  put bkgnd field Colorcount into colornum

  if colornum is 3 then
    put 8 into newcolornum
  else if colornum is 8 then
    put 7 into newcolornum
  else if colornum is 7 then
    put 6 into newcolornum
  else if colornum is 6 then
    put 5 into newcolornum
  else if colornum is 5 then
    put 4 into newcolornum
  else if colornum is 4 then
    put 3 into newcolornum
  else if colornum is 3 then
    put 7 into newcolornum
  else
    Put 3 into newcolornum
  end if
  Put newcolornum into bkgnd field colorcount
  put newcolornum*newcolornum*newcolornum*newcolornum into bkgnd field Permcount

end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=22 top=164 right=188 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: advance
----- HyperTalk script -----
on mouseUp


  Put bkgnd field colorcount into thecolors
  Put bkgnd field "turn field" into whichturn
  Put "Turn"&whichturn into holder

  if visible of bkgnd field solution is true then exit mouseup
  If line 3 of bkgnd field holder is "R" then
    Put B into line 3 of bkgnd field holder
  else if line 3 of bkgnd field holder is "B" then
    Put G into line 3 of bkgnd field holder
  else if line 3 of bkgnd field holder is "G" then
    If thecolors>3 then
      Put Y into line 3 of bkgnd field holder
    else
      Put R into line 3 of bkgnd field holder
    end if

  else if line 3 of bkgnd field holder is "Y" then
    If thecolors>4 then
      Put P into line 3 of bkgnd field holder
    else
      Put R into line 3 of bkgnd field holder
    end if
  else if line 3 of bkgnd field holder is "P" then
    If thecolors>5 then
      Put O into line 3 of bkgnd field holder
    else
      Put R into line 3 of bkgnd field holder
    end if
  else if line 3 of bkgnd field holder is "O" then
    If thecolors>6 then
      Put F into line 3 of bkgnd field holder
    else
      Put R into line 3 of bkgnd field holder
    end if
  else if line 3 of bkgnd field holder is "F" then
    If thecolors>7 then
      Put I into line 3 of bkgnd field holder
    else
      Put R into line 3 of bkgnd field holder
    end if
  else if line 3 of bkgnd field holder is "I" then
    Put R into line 3 of bkgnd field holder
  else
    put R into line 3 of bkgnd field holder
  end if

end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=22 top=197 right=221 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: advance
----- HyperTalk script -----
on mouseUp


  Put bkgnd field colorcount into thecolors
  Put bkgnd field "turn field" into whichturn
  Put "Turn"&whichturn into holder

  if visible of bkgnd field solution is true then exit mouseup
  If line 5 of bkgnd field holder is "R" then
    Put B into line 5 of bkgnd field holder
  else if line 5 of bkgnd field holder is "B" then
    Put G into line 5 of bkgnd field holder
  else if line 5 of bkgnd field holder is "G" then
    If thecolors>3 then
      Put Y into line 5 of bkgnd field holder
    else
      Put R into line 5 of bkgnd field holder
    end if

  else if line 5 of bkgnd field holder is "Y" then
    If thecolors>4 then
      Put P into line 5 of bkgnd field holder
    else
      Put R into line 5 of bkgnd field holder
    end if
  else if line 5 of bkgnd field holder is "P" then
    If thecolors>5 then
      Put O into line 5 of bkgnd field holder
    else
      Put R into line 5 of bkgnd field holder
    end if
  else if line 5 of bkgnd field holder is "O" then
    If thecolors>6 then
      Put F into line 5 of bkgnd field holder
    else
      Put R into line 5 of bkgnd field holder
    end if
  else if line 5 of bkgnd field holder is "F" then
    If thecolors>7 then
      Put I into line 5 of bkgnd field holder
    else
      Put R into line 5 of bkgnd field holder
    end if
  else if line 5 of bkgnd field holder is "I" then
    Put R into line 5 of bkgnd field holder
  else
    put R into line 5 of bkgnd field holder
  end if

end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=22 top=229 right=253 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 6179 / 6179
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: advance
----- HyperTalk script -----
on mouseUp


  Put bkgnd field colorcount into thecolors
  Put bkgnd field "turn field" into whichturn
  Put "Turn"&whichturn into holder

  if visible of bkgnd field solution is true then exit mouseup
  If line 7 of bkgnd field holder is "R" then
    Put B into line 7 of bkgnd field holder
  else if line 7 of bkgnd field holder is "B" then
    Put G into line 7 of bkgnd field holder
  else if line 7 of bkgnd field holder is "G" then
    If thecolors>3 then
      Put Y into line 7 of bkgnd field holder
    else
      Put R into line 7 of bkgnd field holder
    end if

  else if line 7 of bkgnd field holder is "Y" then
    If thecolors>4 then
      Put P into line 7 of bkgnd field holder
    else
      Put R into line 7 of bkgnd field holder
    end if
  else if line 7 of bkgnd field holder is "P" then
    If thecolors>5 then
      Put O into line 7 of bkgnd field holder
    else
      Put R into line 7 of bkgnd field holder
    end if
  else if line 7 of bkgnd field holder is "O" then
    If thecolors>6 then
      Put F into line 7 of bkgnd field holder
    else
      Put R into line 7 of bkgnd field holder
    end if
  else if line 7 of bkgnd field holder is "F" then
    If thecolors>7 then
      Put I into line 7 of bkgnd field holder
    else
      Put R into line 7 of bkgnd field holder
    end if
  else if line 7 of bkgnd field holder is "I" then
    Put R into line 7 of bkgnd field holder
  else
    put R into line 7 of bkgnd field holder
  end if

end mouseUp



-- part 44 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=457 top=63 right=83 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Permcount